! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialization File
! 
! Generated by KPP-2.2.4_gc symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : gckpp_Initialize.f90
! Time                 : Mon Jan 11 14:22:52 2021
! Working directory    : /n/home08/kbates/GC/Code.12.3.0_new3_arom/KPP/Tropchem
! Equation file        : gckpp.kpp
! Output root filename : gckpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE gckpp_Initialize

  USE gckpp_Parameters, ONLY: dp, NVAR, NFIX
  IMPLICIT NONE

CONTAINS


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialize - function to initialize concentrations
!   Arguments :
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

SUBROUTINE Initialize ( )


  USE gckpp_Global

  INTEGER :: i
  REAL(kind=dp) :: x

  CFACTOR = 1.000000e+00_dp

  x = (0.)*CFACTOR
  DO i = 1, NVAR
    VAR(i) = x
  END DO

  x = (0.)*CFACTOR
  DO i = 1, NFIX
    FIX(i) = x
  END DO

! constant rate coefficients
  RCONST(640) = 2.3e-12
  RCONST(641) = 6e-13
  RCONST(644) = 8.4e-13
  RCONST(646) = 1.38e-11
  RCONST(651) = 1.7e-11
  RCONST(654) = 2.3e-12
  RCONST(658) = 3.8e-12
  RCONST(659) = 4.7e-11
  RCONST(660) = 1.4e-11
  RCONST(661) = 2e-11
  RCONST(662) = 9.2e-18
  RCONST(663) = 9.9e-11
  RCONST(665) = 2.4e-15
  RCONST(669) = 4.66e-12
  RCONST(671) = 1.06e-12
  RCONST(672) = 7e-12
  RCONST(674) = 2.3e-12
  RCONST(676) = 3.6e-12
  RCONST(677) = 2.86e-13
  RCONST(678) = 2.08e-12
  RCONST(679) = 3.47e-12
  RCONST(680) = 2.6e-12
  RCONST(683) = 5.5e-11
  RCONST(684) = 9e-16
  RCONST(685) = 0.00085
  RCONST(686) = 5.5e-11
  RCONST(687) = 9e-16
  RCONST(688) = 0.00085
  RCONST(694) = 1e-10
  RCONST(695) = 1e-10
  RCONST(696) = 1e-10
  RCONST(697) = 1e-10
  RCONST(698) = 1e-10
  RCONST(699) = 1e-10
! END constant rate coefficients

! INLINED initializations

! End INLINED initializations

      
END SUBROUTINE Initialize

! End of Initialize function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



END MODULE gckpp_Initialize

